library(leaflet)
aqi <- read.csv("data/price_house1.csv",fileEncoding = 'GBK')
pal <- colorQuantile("YlOrRd", NULL, n=10)
leaflet(aqi) %>% addProviderTiles(providers$Esri.NatGeoWorldMap)%>%
addCircleMarkers(~lon, ~lat, popup=aqi$price,
# radius = log2(aqi$price),
stroke = FALSE, fillOpacity = 0.8,
color= ~pal(price))
library(leaflet)
library(maptools)
path <- "data/"
poly <- readShapePoly(paste(path,"plant.shp",sep =""))
#转换字符编码
poly$植被型 = iconv(poly$植被型,"UTF8","UTF8")
#绘制全国,并且以省的名字为弹出窗
addPolygons(leaflet()%>%addProviderTiles(providers$CartoDB.Positron),data = poly,popup=~植被型,
fillColor = topo.colors(10, alpha = NULL), stroke = FALSE
)